Error in `$<-.data.frame`(`*tmp*`, labels, value = c("", "", "", "", "", : replacement has 253 rows, data has 346
Traceback:
1. plot_kegg_pathways(deg$KEGG$over$category, deg$sign_fc_deg, paste("../results/dge/",
. dir_path, "/kegg/over_repr_kegg/", sep = ""))
2. suppressMessages(pathview(gene.data = fc_deg, pathway.id = cat,
. species = "Mus musculus", gene.idtype = "Symbol"))
3. withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
4. pathview(gene.data = fc_deg, pathway.id = cat, species = "Mus musculus",
. gene.idtype = "Symbol")
5. `$<-`(`*tmp*`, labels, value = c("", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", ""))
6. `$<-.data.frame`(`*tmp*`, labels, value = c("", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
. "", "", "", "", "", "", "", ""))
7. stop(sprintf(ngettext(N, "replacement has %d row, data has %d",
. "replacement has %d rows, data has %d"), N, nrows), domain = NA)